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CLOCK, nONTFXT SWITCHIMG, AMU jnB STARTUP AMD STQP K'OHTIMfS - V412 MACRO. V36 19!01 4-JUN-69 PAGE 1 

l»»«CaPYPlGHT 1969, DIGITAL FQUIPMENT CORP., MAYNARD, MASS.»«» 

ITHIS SUP-PROGRAM ASSEMBLED 'JITH SYSTEM PARAMETER FILE - S.MAC(V414) 
XLIST 
LIST 

(THIS SUq-PROGRAM ASSEMBLED 1,'ITH CONF I GURAT I Olv DEPENDENT FEATURE SWITCHES r FT50SB.MAC( 
\/003 ) 

XLIST 

LIST 
TITLE CLDCKl - CLOCK, CONTFXT SWITCHING. AMD JOB STARTUP AND STQP ROUTINES - V412 
SUBTTL APRINT Th/Th/CHW TS 20 MAY 69 
XP VCL0CK1.412t 

J PUT VERS^O^' NUMBER IN GL08 LISTING AND LOADER STORAGE MAf» ' 



?I00(]00 



000000 
^00001 
0000fl2 
!'!0CI003 
0000^4 
PI00005 



CLOCKl! 



FNTRY CLOCKl lALWAYS LOAD CLOCKl IF LIBRARY SFARCH 



■•THIS SERVICE ROUTINE RUMS 0^ A H[GH PRIORITY CHANNEL 
iAND REQUESTS INTERRUPTS ON LOWER CLK CHANNEL 
;FOR SCHEDULING JOBS AND ERRIR HANHLING THAT THE USER 
;IS NOT ENABLED TO HANDLE HJmSFLF 



EXTERNAL TIME,TIMEF,CLKFLG,RFQCLK,APRCHL,APRPC,UPTIHE 
EXTERNAL JOBDAT.JOBTPCj JOBCNI, JOBAPR.APRERR.SCHEDF 

EXTERNAL APR ILM.COMM AN, CONMES,DEVCHK,DEVSRC, ERROR, INLMES 
EXTERNAL RELF A9 , CRSHWD , CRASHX 



INTERNAL 



FTTTYSER 



ITHIS ROUTINE MAY BE ASSEMBLED TO WORK WITH EITHER 
I THE OLD SCNSER OR THE NEW TTYSER. 



INTERNAL FTCHECK , FTmONP 



0000 
(1000 
0000 
2662 
0000 
0044 



f 
00 
00 
50 
00 
00 



2310 
000 

1471 

0000 
0000 



00 
00 
00 

32 

00 
00 



IFN FTCHECK+FTMONP,< 

EXTERNAL D4TA,4PRCON,APRlNl.f;LKS17.DAMESS,UUO0,CLOCK 

INTERNAL UUOl 

> 

IFE FTCHECK*FTMONP,< 

INTERN CLOCK, DAMESS 

extern cipwtm 

;monitor enabled cpu flags 

luser enabled cpu flags 

.'place to save ac17 on clock interrupt 



APRCON: 
APRINll 
CLKS17! 
DAMESSi 



231000 





ASCIH /-JAN-/ 



CLOCK! 
> 



POINT 36, CIPWTM, 35 



(BVTE POINTER TO CLOCK REQ QUEUE 



CLflCKl 
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50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
11 
82 
8 3 
84 
86 
8 6 
87 
88 



61000(56 
i!i0PI007 



000011 
000012 



(100014 
000015 
000016 
000017 
000020 
000021 
000022 

0000?4 
000025 
000026 

000027 
000030 
000031 



000032 
000033 
000074 
[^00035 
000036 



254000 
254000 



INTERN APRINT 

000011' APRINT; JRST APRPAR 
000007' JRST . 



000010 7006K0 240000 APRPCL; CONG PI, 240000 



700700 
2542'^0 



2540e0 
332000 
254000 
700340 
264000 
350000 
350000 
4760^0 
476000 
700600 
700320 

2540^0 
700200 
254520 



700200 
260040 
603040 
2540rA0 
?540''0 



600000 APRPAH! CONS? PI, 600000 
000010' MALT APRPCL 



000013 700360 0000012 



000007' 

000000 

000000 

001000 

000037' 

000000 

000000 

000000 

000000 

000000 

000001' 

000032' 

001000 

000000 



001000 
000031 ' 
010000 
000043 ' 
000061 ' 




CONSO APR,9APRC0N 



JRST APRINT*! 
SKIPE CRSHWD 
JRST CRASHX 
CONSO APR, 001000 
JRST APRER 
ACS TIME 
ACS UPTIME 
SETQM TIMEP 
':ET0*' CLKFLG 
DNO Pt,REOCLK 
S? APR,9APRINil 



T APWERi 

APRIi 

JEN SAPRCHL 



►APRCHN 



ALWAYS CHECK APR AND PI DEVICES 
CHECK OTHER DEVICES 



TURN OFF 
ENABLE F 
(00 NOT 
DISABLES 
MEM PARIT 
YES, HALT 
ON CONTI 
INTERRUPT 
ALWAYS A 
RH MCDIF 
ENABLED 
NO, CHECK 
IS LOC, 3 
YES ' GO 
YES, IS I 
NO, GO CH 
YES, INCR 
UPTIME IS 
FLAG THAT 
SET FLAG 
REQUEST I 
IS USER E 

RH ALSO 
YES, GO P 
NO, CLEAR 
DISMISS I 



MEM PAR 
OR MEM 
TURN OF 

POWR F 
Y ERROR 

MACHIN 
NUE 

FOR AP 
T LEAST 
lED EAC 
FOR PC 
OTHER D 
CL088 
SAVE AC 
T CLOCK 
ECK ERR 
EMFNT T 

LOADED 

APR CL 
FOR CLK 
NTERRUP 
NABLE F 
MOniFIE 
ROCESS 

ONLY T 
NTERRUP 



, ERR, 
PAR AND 
F POWR 
AIL INT 
OR POW 
E, CLEA 

R? 

FOR CL 
H TIME 
CHANCE 
EVICES 
ERED? 
'S S ST 
? 

OR FLAG 
IME OF 

AS EER 
OCK HAS 

FORCED 
T ON CL 
OR ANY 
D EACH 
TRAP 
HE CLOC 
T 



AND 

TRY AGAIN 
FAIL AS THAT PER",ANENTLY 
ERRUPT) 
ER FAILURE? 
R FLAGS AND TRY AGAIN 



nCK, ILM,NXM,PD OVF 
USER RUNS IN CASr HE IS 
OR AR OVF 
ON THIS PI CHANNEL 

ATE OF ALL DEVS, 



DAY 

O.AND !S NEVER Cl EARED 

TICKED 

INTERRUPT 
K CH4NMEL 

FL4GS( INCLUDING CLOCK) 
TIME A USER RUNS 

K FLAG 



IHERE ON CLOCK FLAG AND IT C SOME OTHER FLAG IS ON WHICW USERS .-.AMTS 



APRERl! BajUfl-A.D.n . il "TJIi' » P'f'C^ 
FXC^H TA1>t»P^Hl 
TLNevrtTc.USRMOO 
jRMvkP f<ER4 




INOW CLEAR CLOCK FLAG 

!S*VE TAD, GET PC 

MS PC FROM USER MODE? 

JYES, GO TRAP TO HIM 

IN". GO CHECK IN CASE ALSO A SE:RI0US ERR^R 



CLOCKl 



a9 

91 
52 
93 
94 

95 
96 
97 

98 
99 
lf0 
l?ll 
1^2 
103 
17IA 
105 
1?6 
107 

108 
109 
110 
111 
IIZ 
113 
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000037 
000040 
000041 
000042 
000043 
000044 

000045 
000046 

000047 
000050 
000051 
000052 
000053 
000054 



000056 
000057 



250040 
603040 
700360 
254000 
250340 
202047 

700247 
513007 

402000 
541040 
542040 
540047 
250340 
700200 



(OTHER APR INTERRUPTS BESI3E5 CLOCK 



000033' APRER 

010000 

000001' 

000061' 

000000 

000000 

000000 
000000 

000001' 

231000 

000000' 

000000 

000043' 

000440 



EXCH TACAPRCHl 
TLNE TACUSBMOO 
CONSO APR.SAPRINl 
JRST APRER2 
APRER4! EXCH JOAT.JOBDAT 

MOVEM TAC< JOBTPC(JOAT) 

CONI APR, JOBCNI ( JDAT) 
HLLZS JOBENBIJDAT) 

SETZM APRINl 
URRI TAC, 231000 
HRRM TACAPRCON 
MRR TAC, JOBAPR(JOAT) 
EXCH jnAT,J05DAT 
CONO APR,440+APRCHN 



000055 621040 440000 APRER^I TLZ 



TAC, 440000 



250040 
7002^.0 



000037 ' 
430110 



000060 254520 000056' 



FXCH TACAPRCHL 
CONO APR,430110*APRCHN 

too ' 
JEN PAPRCHL 



ISAVE TAC GET PC 

I IS PC IN USER MODE? 

lYES, IS USER ENABLED FOR THIS ERROR 

INO, PRINT ERROR MESSAGE AND STOP JOB 

lYES, SAVE JDAT, GET CURRENT J'TB DATA ARrA ADR, 

(STORE PC IN JOB DATA AREA 

(STORE APR IN JOB DATA AREA 

(CLEAR SOFTWARE FLAGS SO THAT USER MUST TO 

( ANOTHER APRENB UUO IN ORDER TO ENABLE TRAPS 

(ALSO CLEAR USER APR CONSO FLAGS 

(AND SFT MONITOR TO LOOK ONLY FOR 

(PD OVF,IUM,NXM, AND CLOCK 

(GET USER LOC TO TRAP TO 

(RESTORE JDAT.JOBOAT 

(DISABLE POV, AROVF IN CASE ON 

ISO USER MUST REENABLE WITH SETAPR UUO 

(CLEAR FOV (PC CHANGE ON POP-6 1 AND AR OvF FLAGS 

( SO INTERRUPT MAY BE DISMISSEH 

(RESTORE TAC S APRCHL 

(CLEAR ALL ERROR FLAGS WHICH CAN CAUSE ImTERRUPTS 

( EXCEPT CLOCK FLAG(ELSE LOSE TIME OP DAY) 

(DISMISS INTERRUPT 
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114 


[500061 


700340 


230000 


APRER2I 


CONSO 


APR,NXk1! I 


115 


H0(1062 


254000 


000055' 






JRST 


APREP3 


116 


(1051063 


202040 


000000 






MOVEl^ 


TACAPRPC 


117 


000064 


700240 


000000 






rONi 


APR,APRERR 


118 
















119 


C00065 


476000 


000024 ' 






SETOM 


CLKFLG 


1?0 


000066 


4760(10 


000000 






SETOM 


SCHEDF 


1?1 
















122 


000067 


700600 


000025' 






CONO 


M.REOCLK 


123 


000070 


700300 


020000 






CONS? 


APR, ILM 


124 


(!|00071 


541040 


000000 






4RRI 


TAC,0 


125 
















126 








IFN 


rTHALT.< 




127 












CONSZ 


PI. 003400 


1?8 
















129 












HALT 


♦1 


130 








> 








131 


000072 


254000 


000055' 






JRST 


APRER3 


132 

















ILMiPOi 



O't-li-) 



HDOES EXEC CARE? 
INO. IGNORE EXEC OVERFLOW (MUST BE FOV OR AROVFk 
ISTORE ERROR PC FOR CLK CHANNEL 
ISTORE ERROR FLAGS 
I (ALSO USED AS ERROR FLAG) 
ISET FLAG FOR CLK INTERRUPT 
IFLAG THAT RESCHEDULING IS NEEDED 
I (EVEN THOUGH PC MAY BE IN EXEC MODE) 
(REQUEST INTERRUPT IN CLK CHANNEL 
IWAS ERROR ILLEGAL MEMOflY(FROM USER)? 
lYES, CLEAR RH OF PC, SO A SECOND ILM INTERRUPT; 
i WILL NOT OCCUR IF THIS IS A WU.O PC(ANn A P15P-10) 

(ARE ANY PI'S IN PROGRESS OF LOWER PRIORITY TIJIAN APR? 

I (PDP-10 BITS ONLY) 

lYES, HALT SO CONTINUE WILL TRY TO RECOVER 



INO, MUST BE UUO LEVEL(OR USER MODE 
I MEMORY DROPPED OUT) 



AND 



CLOCK! - CLOCK, CONTEXT SWITCHING, AND JOB STARTUP AND STOP ROUTINES - VllS MACRO, V36 19:01 4-JUN-6'i PAGE 17 

4PRINT TH/TH/CHW IS 20 MAY 69 ! 

133 SUBTTL CLOCK - LOW PRIORITY CLOCK SERVICE(CLK) 

135 ;TMIS ROUTINE RUNS ON THE LOWEST PRIORITY Pi CHANNEL AND AT UUO LEVEL 

136 (TO CAUSE AN INTERRUPT ON CLi* CHANMELI 

137 ; SETCM CLKFLG (FLAG THAT INTERRUPT HAS BEEN REQUESTED 

138 I CONO Pt.CLKREQ IREQUEST PI INT^RUPT ON LOi^EST PI CHANNEL 

139 )THE FOLLOWING OTHER FLAGS MUST ALSO BE SET 

i<0 ;aprerr-apr detected error IN Current job 

1*1 ;SCHEDF-RESCHEDUL1NG MUST TAKE PLACE(EVEN THOUGH PC IN EXEC »10DE) i 

1*2 )TIMEF-APR CLOCK HAS TICKED ON HIGH PRIORITY CHANNEL i 

1*3 ISEE APRSER AND RUNCSS TO SEE HOW THIS ROUTIME IS CALLED i 
144 

1*5 ICLK SERVICE PERFORMS THE FOLLOWING ON A REGULAR BASISl 

1*6 IPROCESSES CLOCK QUEUE REQUESTS 

1*7 ICALLS CONSOLE MONITOR COMMAWD DECODER 

1*8 (CALLS CORE SHUFFLER 

1*9 (THEN CALLS SCHEDULER 

150 (IF THE CURRENT JOB IS IN EXEC MODE THE ABOVE 4 TASKS ARE 

151 (DELAYED UNTIL THE CURRENT JOB ENTERS A STOPPABLE STATEl I.E., UNTIL i 

152 ) 1, JOB STARTS TO WAIT FOR A BySY SHARARLE DEVICE 

153 ) 2, JOB STARTS TO WAIT FQR 10 TO COMPLETE 
15* ( 7, CONTROL A90UT TO RETURN TO USER MODE 
155 (THEN CLK SERVICE IS ENTERED AT THE UUO LEVEL 
156 

157 000005 STDRsOAT 

158 000001 T=TAC 

159 000002 TlsTACl 

160 000007 JA=JDAT 
161 

162 (THE CLOCK REQUEST QUEUE PROVIDES THE REST OF THE MONITOR 

163 (WITH THE ABILITY TO BE TRAPPED TO AFTER A NUMBER OF CLOCK TICKS i 

164 (HAVE OCCURRED 
165 

166 (TO MAKE A REQUESTI 

167 ( CONO P!,PIOFF '. 

168 ( IDPB AC, CLOCK (STORE CLOCK REQUEST IN QUEUE ; 

169 ( CONO PI.PION (TUR"! PI BACK ON 

170 (C(AC)»XWD ADDRESS, NO, OF CLOCK T I CKS*DATA»10000 

171 (WHERE DATA IS 6 BITS OF INFO NEEDED WHEN T]ME RUNS OUT 

172 (CLK SERVICE WILL PUSHJ PDPjAOR 

173 (WHEN TIME RUNS OUT WITH DATA RIGHT JUSTIFIED IN AC TAC I 

174 (ALL ACS ARE FREE To USE WHEN CALL IS MADE ! 
175 

176 INTERNAL CLKINI '. 

177 EXTERNAL C IPWTMl, P ION , P I OFF 
178 

179 (500073 2010*0 000005' CLKINI ( MCVEI TACCIPWTMl (SETUP CLOCK QUEUE BYTE POINTER 

180 000074 542040 000005' HRRM TAC, CLOCK (|.H NEVER CHANGES(36 BIT BYTE) I 

181 000075 263140 000000 PCPJ POP, 



CLOCd - CLOCK, CONTFXT SHITCHING. AMO jnB STARTUP A«J0 STOP 'OUTINeS 
r-LOCK - LOW PRIORITY CLOCK SERVinE(CLK) 



vn2 



MACRC,V36 19:?;i 4-Jv'i-65 PASE 



lfl2 
133 
18 4 
LB5 
1P6 
1R7 

ise 

1Q0 
191 
192 

193 
194 
195 
196 
197 
198 
199 
2S10 
27\ 
1^2 
^73 
Z-fA 
2<f'> 
2C6 
277 
2?8 
2?9 
2ia 
211 
212 
213 
214 
215 



^aClKiJ 
l^0?l!"l 

C0?i;'2 



262140 
201747 
251747 
201140 

■505140 



70?1?!4 262140 

fl0("l(>5 202347 

0aP"lC6 202147 

I"0C1^7 2540?0 



IhESE AT UUO LEVEL WMEM JOP rOES INTO 10 ^.AIT OR SHARABlE IEVICE wAr 

iCALL i PUSHJ PDP.WSCHED 

i RETURN HERE WHEN RUN4BLE AGAIN 

INTERNAL WSC"ED 

EXTERNAL JOBni4,jORDAC,uSRPC,JOB016,NULPDL 



000000 

00(1000 
i»00000 

000000 
000000 



MSCHED I 



!»0("1''3 2540!>0 000135' 



POP PDP>USRPC 

MOVEl AC3, JORDACf JDAT) 

RLT AC3,J0B016(JDAT1 

MOVEI pdp.nulpdl 

WRLI PDP.MJORPl 



JRST RSCHED 



ISAVE PC IN PROTECTED PART Of SYSTEM CATj 

(SAVE *C'5 a-16 IN OU"? ACS 

) IN CURRENT JOB OATA AREA 

(NULL JOP PO LIST 

lUSEO TO CALL SCHEDULER AND COMMAND riECO-ER 

I OTHERWISE GET PD OUF 

IGO RESCHEnULE 



SHERE AT UUO LEVEL WHEN CURRPNT JOB RETURNS TO USER MODE 
IFRCI A UUO CALL AND EITHER! 

1, CURRENT JOB TYPED CONTROL C WHILE IN EXEC MODE 

2. CLOCK FLAG WEN'T OFF WHILE CURRENT JOB WAS 
IN EXEC MODE 



iCALL' 
I 



PUSHJ PDP.USCHED IFROM UUOCONIUUO HANDLER RETURN TO USER) 
RETURN HERE WHEN RUNABLE 



INTERNAL USCHED 

EXTERNAL JOBDPG, JOBDPO.USRPC 

000076' USCHED! POP PDP.USRPC (SAVE PC I "J PROTECTED PART OF SYSTEM OA'i 

00;i0(?0 MOVEM PROG. JDBDPG(PR^G) iSAVE PROG I •>' DUMP AC AREt 

0051070 «OVE" PDPiJOBDPOIPROf:) ISAVE POP 

00(1135' JRST RSCHED iGO RESCHEDULE 



CLOCKl 



■ CLOCK, 

CLOCK ■ 



CONTCXT SWITCHING. ANO JOB START'JP AND STOP ROUTINES - V^lZ 
LOW PRIORITY CLOCK SEHVICE(CLK) 
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216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 

235 
236 
237 
236 
239 
240 
241 
242 
243 
?44 
245 
246 
247 
248 
249 



?|00110 
PI0!«111 
700112 
!i0fH13 
("00114 
000115 
000116 
000117 
000120 



000122 
000123 

000174 
000125 
000126 
000127 

000130 
000131 

700132 
000133 
000134 



(HERE AT CLK INTERRUPT LEVEL 

INTERNAL CLKINT 

INTERNAL FTTIME 

EXTERNAL CLKFLC. ,j0BDl7,CLKCHLiSCHEDFiJ0BADR.J0BD16,J0Bn4C 

EXTERNAL J0B015.j0PPDliMJ0HPl.APRE PR. NULOAT.NULPDL 



336000 
254000 
202740 
200740 
607740 
332000 
2540!?0 
200740 
254520 



000065' CLKINTi SKIPN CLKFLG 



000110' 

000002' 

000000 

010000 

000066' 

000121' 

000002' 

000113' 



JRST CLKINT 
MOVEM 17,CLKS17 
MOVE 17.CLKCHL 
TLNN 17,USRM00 
■JKIPE SCMEOF 
JRST SAVPC 
MOVE 17,CLKSl7 
JEN (^CLKCHL 



000121 202740 000104' SAVPCl MOVEM 17,USRPC 



336740 
201740 

202717 
701717 
251717 
700040 
702057 
201140 

505140 
332040 
260140 



000053' CLKERHi SKIPN 17,jOBDAT 
0000(10 "OVEI 17,NUL0AT 



000100' 

000077 ' 

000000 

000002' 

000000 

000101' 

000102' 
000e«4' 
000000 



MOVEM 16, J0BD16(171 
"OVEI 16,J0BnAC(!l7> 
PLT 16, J0BD15(17) 
«OVE TAC,CLKS17 
MOVEM TAC, J0n017(17) 

MOVEI pdp,nulpdl 

MRLI POP.MJOBPl 
SKIPE TAC.APRERR 
PUSH, I PDP.APRILM 



ICLK INTERRUPT REQUEST? 

INO, CWECK OTHER DEVICES 
ISAVE AC 17 
IIS CURRENT JOB IN USER MOOE? 

INO, IS THIS A FORSCED RESCHEDULING INTERRUPT^ 

lYES, IT IS OK TO RESCHEHULE NOW 

INO, LEAVE TIMFF SET AND DISMISS INT. 



iSAVE PC IM PROTECTED PART OF SYSTEM OATj 

I STORAGE FOR CURRENT JO? 

(CURRENT JOB DATA AREA. IS THERE ONE? 

INO. MUST BE NULL JOS OR CORE 

1 RUNS AT UJO LEVEL. REQUESTS CLK INT. To STOP! 

ISAVE AC 16 IN DUMP AC PART OF JOB DATA aREA : 

ISOURCE»0.DESTINATION=DUMP AC 

ISAVE ACS 0-19 JUST BELOW AC 16 

INOW SAVE 17 IN JOB DATA AREA 

lALONG WITH OTHER ACS 

ISET UP PUSH DOWN LIST IN NULL JOB OATA 

I AREA IN LOWER CORE 

l-LENGTH*l(LEAVE ROOM FOR UUO PC) 

IIT THIS AN FRfiOR INTERRUPT? ; 

lYES, GO PROCESS ERROR . AP5 ! ^^ wILw ClEA= APRF"?" 

I FLAG IMMEDIATELY 



CLOCKl - CLOCK, CONTEXT SWITCHING. AND JOS START'JP AND STOP i^OUTIN^S - V412 MACRO, V36 19:01 4-JUN-6t) PAGE 20 
CLOCK - LOW PRIORITY CLOCK SERVICE(CLK) 

25B EXTERNAL COMCNT , NXT JOS , HNGT I w, POTuST , LSTWRD 

2^1 EXTERNAL TlMFF.APRERRiCLKFLG.SCHEQF, JOR.PMONTB 
252 

253 BaCl35 33603B 0051023' RSCHEDl SKIPH TIMEF IHAS CLOCK GONE OFF SINCE LAST CALL? 

254 ("00136 2540S10 00!»211' JRST CIPC INO, JUST RESCHEOULE 
255 

256 ;TIME ACCOUNTING 

257 

258 EXTERNAL T I ME .M I DNI T , ThSDAT , f ONTAB 

259 

260 IFN rTTIME,< 

261 EXTERNAL RT I ME , TT I HE , JOB 

262 000137 336200 000000 SKIPN ITEM, JOB )WAS LAST JOR NULL JOB? 

263 000140 3360170 000000 SKIPN POTLST )YES-W4S IT A LOST TICK? 

264 000141 2540(!0 000144' JRST INCTIM INO-PROCEED NORMALLY 

265 000142 350000 000000 AOS uSTWRD I YES- INCREMENT LOST TIME COUNT 

266 000143 402000 000140' SETEM POTLST )AND CLEAR LOST TICK INDICATION 

267 000144 350004 000000 INCTIMI AOS RTIME(ITEM) IINCR. CURRENT JOB INCREMENTAL RUN TIME 

268 000145 350004 000000 AOS TTlMEdTEM) IINCR, CURRENT JOB TOTAL RUN TIME 

269 > 

270 IFN FTKCT.< 

271 EXTERN USRREL , JBTKCT 

27? 000146 135040 000565' LOB TACTPOINT 8 , USRPEL . 25:1 (GET NO, OF IK BLOCKS-IFOR CURHEnjT USER 

273 000147 271040 000001 AODI TACl ;mAKE IT NO, OF IK BLOCKS 

274 000150 ?72044 000000 AOCIM TAC , JBTKCT { I TEM ) !AOD IN aCCUMULATEO CORE RUNNING TIME PRODUCT 

275 I (KILO-CORE TICKS) 

276 IFN FT2REL,< 

277 EXTERN CwGHGH 

278 000151 260140 000000 PUSHJ PDP,CHGHGH ICHARGE USER FOR HIGH SEGMENT IF HE MAS "NE 

279 > 
2R0 > 

281 iMIDNITE CHECK 
2B2 

283 000152 200100 000021' MOVE TACl, TIME 

284 000153 315100 000000 CAMGE TACl.MIONIT IGONE PAST MIDNITE7 

285 000154 254000 000164' JRST CIP2 INO 

2B6 000155 40301^0 000152' CIP3; SETZB lOS.TIME lYES, RESET TIME OF DAY 

287 000156 350040 000000 AOS TACTHSQAT IJPDATE DAY 

288 000157 231040 000037 IDIVI TAC, '031 

289 000160 235000 000014 DIVl I0S,fD12 INO. 

290 000161 135040 000000 lDB TACPMONTS 

291 000162 315040 00.0002 CAMGE TAC, TACl lEND OF MONTH? 

292 000163 2540<10 000155' JRST CIP3 lYES, 



CLOCKl 



293 
294 
295 
296 
297 
298 
299 
300 
3(11 
3f2 
3H3 
3?I4 
305 
3516 
3^7 
3(58 
309 
310 
311 

312 
313 
314 
315 
316 
317 
318 
319 
320 
331 
322 
323 



- CLOCK, CONTEXT SWITCHING, AND JOB STARTUP AND STOP ROUTINES - V412 
CLOCK - LOW PRIORITY CLOCK SEHVICE(CLK) 
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i?00164 
000165 
000166 
000167 
000170 
000171 
000172 
000173 
000174 
000175 
000176 
000177 
000200 
000201 
000202 
000203 
000204 



000206 
000207 
000210 
000211 
000212 



(PROCESS TIMING REQUESTS STO='ED IN QUEUE 



550240 
306240 
254000 
370105 
602100 
364240 
700600 
200060 
370000 
202045 
700600 
135040 
207000 
261140 
260142 
262140 
364240 



000005 ' 

000073' 

000205' 

000000 

007777 

000165' 

000000 

000005' 

000005' 

000000 

000000 

000566' 

000002 

000005 

000000 

000005 

000165' 



CIP2: nRRi sTOR, Clock 

riP4: CAIN STQR.CIPWTMI 
JRST CIP5 
SOS TACl, (STOR) 
TRNE TACl, 7777 
'iOJA STOR, C1P4 
CONO PI. PIOFF 
MOVE TAC, SiCLOCK 
SOS CLOCK 
MOVEM TAC, (STOR) 
COMO PNPION 
LOS TAC, CPOINT 6, 
MOVSS TACl 
PUSH PDP, STOR 
PUShj PDP, (TACl) 
POP POP, STOR 
SOJA STOP. CIP4 



000205 377000 000000 CIP5I 



260140 
332000 
260140 
260140 
402000 



000000 
000000 
000000 
000000 
0001101 



000213 402000 000135' 

000214 402000 000115' 

000215 316200 000137' 

000216 254000 000241' 



SOSG HNGTIM 
PUSHJ PDP,0EVCHK 
SKIPE COmCNT 
PUShj PDP, COMMAND 
CIP6I PUSHJ PDP.NXTJOB 
SETZM CLKFLG 

SETgM TIMEF 
SETZM SCHEOF 
CAMN ITEM, JOB 
JRST CIPS 



END OF LIST 
YET? 



(GET 

(EO'D 

lYES 

lOECREMENT TIMING REQUEST 

ITIMF EXPIRED YET 

(NO. CONTINUE SCAN 

(YES, MOVE LAST ITEM IN LIST TO THIS 



TACl, 23] (GET 6 BIT DATA ITEM 
(SETUP DISPATCH ADDRESS 
(SAVE ONLY VALUABLE AC 
(AND DISPATCH TO TIMING REQUEST ROUTINE 



IGO BACK FOR MORE REQUESTS 



(DECREMENT HUNG 10 DEVICE 

(GO CHECK FOR HUNG 10 DEVICES 

(ANY COMMANDS TO PROCESS? 

(YES, CALL COMMAND DECODFR 

(CALL SCHEDULER 

(CLEAR CLK I^'TERRUPT FLAG 

( SET ON ALL FORCED CLK INTERRUPTS 

(CLEAR TIMED <1 JIFFY) INTERRUPT FLAG, 

(CLEAR FORCED SCHEDULING FLAG 

(IS NEXT JOB SAME AS LAST ONE? 

(YES, JUST RESTORE ACS AMD DISMISS 



CLnCKl - CLOCK, CONTEXT SWITCHING, AND JOB STARTUP AND STOP ROUTINES - Vfl? 
CLOCK - LOW PRIORITY CLOCK SFHV I CE. ( CLK ) 
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324 








3?5 








3?6 








327 








378 


5^00217 


335340 


000122' 


329 


PI(5022K 


2540(7.0 


000230' 


330 


("0PI221 


201047 


000000 


331 


("00222 


505040 


000000 


332 


000223 


331120 


000000 


333 


000224 


303100 


000017 


334 








3:^5 


000225 


201100 


000000 


336 








337 








338 








339 


000226 


270340 


02 


340 


000227 


251047 


000000 


341 









;DIFFtRE^^T JOB. SAVE SOFT^ARF STA TF ( HARDWARE ALREADY SAVED) 
EXTERNAL JOB, JOBDAT, J09PRT,U?RPRT,USRHCU, JOBJDA 



SKIPN JA.JOBDAT 
JRST CIP7 

MOVEI T.JOBPRTIJA) 
MRLI T,USRPRT 
PKIPL T1,USRHCU 
CAILE Tl,17 

"OVEI T1,0 



ADD JA.Tl 

RLT T,J0RJDA(JA) 



JNULL JOB OR CORE ON OLD JOB? 

lYES, DO NO SAVE SOFTWARE STATE 

IDFST,=FIRST LOC PROTECTED FROM USER 

lSnUR,=SY5TE^< DATA STORACE FnR CURRETN J-^B 

IMOVE NO. OF OLD USER 10 CHAN. IN USE 

IMUST BE 17 OR LESSCIO MIGHT 

I CLOBBER IF ADDRESS CHECKING MISSES) 

iMOVE ONLY CMN IF NEG, OR GR 17 

I SAVGET SETS LH NEGATIVE DURING 10 AS A FLAG 

I SINCE IT DOES 10 INTO AND OUT OF 

I CHANNEL LOCATIONS ( JOB JO A*l . . , JOB J0A*17 ) , 

IRFLOCATE TO USER AREA 

IMOVE TO USER JOB DATA AREA 

) STOP WITH USER CHANNEL 0-1*0 ( USRHCU ) 



CLOCKl 



342 
34 3 
344 
345 
346 
347 
348 
349 
350 

352 
353 
354 
355 
356 
357 
358 
359 
3«0 

361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
371 
372 
373 
374 
375 
376 
377 
378 
379 
3R0 
3R1 
3R2 
383 
384 
385 
386 
38 7 
388 
389 
390 
391 
392 
393 
394 



- CLOCK, 
CLOCK - 



CONTEXT SWITCHING, AND JOB STARTUP AND STOP ROUTINES - V412 
LOW PRIORITY CLOCK SEKVICE(CLK) 
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000230 
000230 
000231 



000233 
000234 
000235 

000236 

000237 

000240 



000241 
000242 
000243 
000244 
000245 

000246 
000247 

000250 



336344 
201340 
205747 
251740 
332000 

254000 
336000 
336000 



IHESTORE SOFTWARE STATE OF NEW JOB. THEN HARDWARE STATE 

INTERNAL NUL JOB . NULAOR 

EXTERNAL JOB , JBTOAT , jOtiD AT , USRPRT , JOBPRT 

FXTERNAL JOBHCU.USRJOA, JOBENe.APRCHN.APRNUL.NULDAT.NULERR 



NULJOBI 
202200 000215' CIP7: MOVEM ITEM, JOB 
260140 000256' NULADRl PUSHJ POP.SETRLI 



000232 322200 000252' 



201040 000222' 

505047 000221' 

3311517 000000 

703100 000017 

201100 000000 

251042 000000 



000000 
000123' 
000125 ' 
000017 
000133' 

000122' 
000230' 
000000 



000251 254520 000121' 



000252 



000252 4030(^0 000250' 



JUMPE ITEM.NULJB 



IFN FTHALT,< 

SKIPN JA 
HALT . 



MOVEI TjUSRPRT 
HRLI T,J0BPRT(JA> 
SKIPL T1,J0BHCU(JA» 



(TRANSFER HERE FROM SYSINI WITH ITEM=0 

ISTORE NEW CI.IRRENT JOB NUMBER 

(GO SETUP HARDWARE AND SOFTWARE RELOCATION 

t INFORMATION roR NEW CURRENT USER 

IIS NEW JOB THE NULL JOB? 



IDOES JOB HAVE CORE ASSIGNED? 
INO -ELSF CLOBBER MONITOR 

INO, OEST,=PROTECTEO AREA IN MONITOR 
lSnuRCE«FIRST PROTECTED LOC. IN JB DATA AREA 
IMOVE NO. OF USER 10 CHAN, IN USE 



CAILE Tl,17 

MOVEI T1,0 

BLT T,USRJDA(T1) 
(RESTORE HARDWARE STATE OF CURRENT JOB 
CIP8 



(MUST BE 17 OR LESSdO MIGHT CLOBBER 

I IF AORRESS CHECKING MISSES 

IMOVEJUST CHAN IF NEG. OR GREATER THAN 17 

I SAVEGET SETS NEG, DURING 10 

(AND MOVE INTO MONITOR 



SKIPN JA, JBTOAT(ITEM) 
MOVEI JA.NULDAT 
MOVSI 17, JOBOAC(JA) 
BLT 17,17 
SKIPE APRERR 

JRST CLKERR 
SKIPN JOB 
SKIPN NULERR 



JEN *USRPC 



IJOB DATA AREAdS THERE ONE?) 
INO, MUST BE NULL JOB 
IRESTORE DUMP ACS 

IDID AN ERROR OCCUR WHILF CLKPI IN PRQGRrS? 

I <0N CLK PI OR HIGHER) 

lYES, GO PROCESS ERROR 

MS THIS JOB THE NULL JOB? 

lYES, HAS AN ERROR OCCURRED WHILE NULL jnB: 

I WAS RUNNING? IF YES. RESTORE ACS 

I ILL UUO LOSED ACS 

lO'SMISS CHANNFLMF INTERRUPT IN PROGRESS), 



iTHE NULL JOB 

(RUNS IN USER MODE WITH PC=1 AND COUNTS IN AC 

EXTERNAL APRNUL , T I ME , THSDAT , M I HN I T , NULERR 

NULJB! 

IFN FTCHECK,<EXTERNAL MQNPTR , MONSUM , CHECK 

i^OVE TACMONPTR 

PUSHJ POP, CHECK 

CAME TAC] ,MONSUM 

HALT .+1 
> 

SETZB 0, NULERR ICLE'R AC USED FOR USUAL MONITORING 



CLOCKl 



- CLOCK, 
CLOCK - 



CONTEXT Switching, ano job startup and stop -^outinps - v4i2 

LOW PRIORITY CLOCK SrH V I CE ( CLK ) 
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395 
356 
397 
3 08 
399 
400 
4(?!1 
402 
4P13 
4PI4 



000253 
00PI254 



200040 
254440 



000567' 

■.;0f1001 



I^OVE I.CAOJA 0,1] 
JRST 11.1 



I CLEAR FLAG SAYING ERROR IN NULL JOB 

; OF NULL TIME INTERVAL 

I LOG JOBDAT (LOCATION OF NULL JOB DATA AREA) TO 

I AS A FLAG (ONLY DUMP ACS USED IN NULL JOB DATA AREA) 

I IF ANY ERRORS (APRERR NON-ZERO) OCCURRfD 

I WHILE CLK IN PROGRESS 

I CATCH THEM NEXT CLK INTERRUPT 

IINSTR, TO ACl 

(DISMISS IF INTERUPT IN PROGRESS 



CLOCKl - CLOCK, CONTEXT SWITCHIfgG, AMD JCB STARTUP AND STQP TOUTINFS - ^112 
CLOCK - LOW PRIORITY CLOCK SE-^V I CE ( CLK 1 uuinNt.B v 1^ 



MACRO. V36 t9tei 4-JUN-6I; PAGE 24 



4?i5 
4(16 
4(?7 
4i;i8 
4^9 
410 
411 
412 
tl3 
414 
415 
416 
117 
418 
419 
420 
421 
422 
423 

424 

425 

426 

427 

428 

429 

430 

431 

432 

433 

434 

435 

436 

437 

438 

439 

440 

441 

442 

443 

444 

445 

446 

447 

448 

449 

450 

4?1 

452 

453 

454 



ir?,^,'^rn^r-I2 ^^^ HARDWARE AND SOFTWARE RELOCATION INFORMATION FOR CURRENT USER 

i CLOCK ROUTINE WHEN N^W U5ER IS DIRRERENT FROM OLD USER 

i CORE ROUTINE WUEN CO^E REaSSIGNEO i^OR CURRFNT iisfr 

) CORE UUO 

; REM4P UUO 

I CALL RESET UUO 

i CALL SFTUWP UUO 



iCALLi STORE RELOCATION AND PROTECTION FQR LOW SEE IN JOBADRCJOR NUMBER) 

I STORE LEnGTh-1 and ABS ORIGIN FOR HIGH SEG IN JBTADRCHIGH SEG NO) 

I (MOVE ITEM, JOB NUMBER - IF CALLING SFTRLD 

I PUSHJ PDP.SETREL OR SETRLl 

: ALWAYS RETURN, C(ITEm)=job NUMBER, C<PROG>=XWD PROT.RELOC, FOR LnW SElJ 



000255 

000256 
000257 
000260 



INTERN SETREL 

EXTERN JOB.JBTADR.JOBADR.USRREL, JBTQAT.JOBDAT, JOBREL,KT10A 
200200 000247' SETREL; MOVE ITEM, JOB 



ICURRENT JOB NUMBER 



200344 000000 
202340 000000 
556340 000000 



SETRLl; |;]OVE PROG.JBTADfttlTEM) ,XWD PROTECT I ON,RELOCAT I ON FOR LOW SEG 



000261 322340 000265' 



000262 556347 000000 



000263 260140 000000 



MOVEM PROG.JOBADR 
MLR?M PROGiUSRREL 

) 

IFN J0AT-PR0G,< 

MOVE JA, JBTDAT( ITEM) 
MOVEM JA.JOBOAT 

> 

JUMPE PROG.SETHRD 



HLRZM PROG.JOBREL(JA) 

IFN FT2REL,< 

EXTERN SETHGH 
PUSHJ POP, SETHGH 



IFE FT2REL.< 

TL? PROG, 1777 



ISAVE TO MAKE UUO HANDLER FASTER 

ISAVE PROTECTION FOR ADDRESS CHECKING 

I (HIGHEST LEGAL REL ADORES FOR CURRENT ijSER i 



N LOW SEG 



^00264 202340 000000 



MOVEM PROG,KT10A 



»LOC OF JOB DATA AREA 

ISAVE IT TOO FOR UUO HANDLER 

J IF (NULL JOB OR JOB DOING CORF OR KjOB) \ 
I DO NOT STORE IN JOB DATA AREA (SINCE IT W I LlJ BE 
) IN EXEC LOWER CORE. ALSO 00 NOT STORE 
( IN LOC 33, SO CAN SEE LAST REAL USER To RUN 

ISET PROTECTION IN USER JOB DATA AREA ; 

I FOR HIM TO LOOK AT 



JSET UP FOR HIGH SEG, IF USER HAS ONE 
) PROG SETUP FOR DATAO 



ICLEAR OUT PROTECTION FOR HIGH SEG 

I JUST IN CASE THIS IS A 2 REG. MACHINE(FVEN ThOGH 

I SOFTWARE CSNNOT HANDLE 2 SFGS) 

ISTORE IN LOWER CORE SO IT CAN BE FOUND OUT 
I USING SWITCHES WHAT IS IN SECOND REGISTER 
I OPTION DOES NOT COME WITH PANEL LIGHTS 
) SO NOT STORE FOR NULL. JOB SO CAN SEE 
I LAST JOB TO RUN IN LOC 33 



CLOCKl - CLOCK, 

CLOCK - 



CONTEXT SWITCHING. AND JOB STARTUP AND STOP ROUTINES - V412 
LOW PRIORITY CLOCK SEHVICE(CLK) 
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455 
A^b 
4'j7 
4^8 
4'i9 
4A0 
461 
4(S2 
4(S3 
464 
465 
466 
467 
468 
469 
470 
471 
472 
473 
474 
4 75 
47 5 
47 7 
476 
479 
4fl0 
481 
4S2 
483 
4B4 
485 
486 
4fi7 
488 
489 
490 
491 
492 
4')3 



C0P265 
000266 
000267 
000270 



000272 
000273 

000274 
000275 
000276 
000277 



000301 
000302 
000303 

000304 
000305 



700140 000007 SETHRO: DATAO APR, PROG 

336340 000257' SKIPN PROGiJOBADR 

634040 000001 td?a tactac 

200047 0000461 move: TAC, JOBENBC JA) 



(SET APR HARDWARE FOR RELOCATION AND PROTECTION 

I FOR LOW(ANn HIGH SEGS) 

[RESTORE PROG TO XWD PPOT,RELOC fQR JUST LOW SEG 

I ( IS THERE ONEIJ 

INO. MUST RE NULL JOB DR C0fiEi2 OR KJOB 

1 SET FOR NO SPECIAL INTERRUPTS To USER 

lUSER APR CONSn FLAGS (THE ONES HE WANTS TO HANDLE 

I FALL I^'TO SETAPR ROUTIME 



;ROUTINE TO ENABLE/OISaBLE APR FOR TRAPPING TO USER ANO EXEC 

ICALL! MOVEI TAC. APR CONSO FLAGS FOR USER TRAPPING 

( PUSHJ POP. SETAPR 

I RETURN WITH APR RESET AND INTERRUPT LOCATION CONSO'S SET 



INTERN SETAPR 
EXTERN APRFOV 

000271 405040 231010 SETAPRi ANDI TAC, 231010*4PRFOV 



507000 
660040 

200100 
431100 
271100 
405100 



000001 
231000 

000001 
000110 
00-^330 

000660 



000300 700600 000172' 



546040 
542040 
700202 

700600 
263140 



000001' 
000000' 
000000 

000176' 
000000 



HRLS TAC 

TRO TAC, 231000 

MOVE TACliTAC 

XORI TAC1,110 

ADDI TACl. 330 

ANDI TACl, 660 

CONO PI.PIOFF 



HLRM TACAPRINl 

mRRM TAC,APRC0N 

CONO APfl,APRCHN(TACl) 

CONO PI.PION 

POPJ POP, 



I CLOCK, 
I FOV=PC 
I UNDER 
IPPESERV 
IMAKE SU 
I PD OVF 
IDUPLICA 
ICOMPLEM 
ISET DIS 
IMASK OU 
I BITS F 
lOISABLE 
ICHANGIN 
lAPR TRA 
ISTORE U 
ISTORE E 
(ENABLE 
I FOVfPD 
lENAPLE 



IMASK OUT 
FOVIONLV 
CHANGE 
TIME SHAR 
E USER BI 
RE MONITO 
, ILM, NX 
TE BITS I 
ENT FOVtP 
ABLE OR E 
T ALL BUT 
OR FOV(PO 

PI 'S SO 
G HAROWAR 
PPING 
SER RITS 
XEC BITS 
W DISABL 
P-10 ONLV 
PI'S ACAI 



ALL BUT PD OVF. ILL MEM. NXM, 
PDP-10), ANO AROVF CONSO FLAGS 

N PQP-6 WHICH IS NEVER ALLOWED 

ING BECAUSE IT TRAPS MONITOR TOO 

TS IN LH 

R ALWAYS LOOKING FOR 

M, CLOCK FLAGS 

N TACl FOR CONO TO APR, 

DP-10 ONLY) AND AROV FLAGS 

NABLE FOR EACH 
DISABLE/ENABLE 

P-10 ONLV> AND AROVF 

NO INTS. MAY OCCUR WHILE 

E « SOFTWARE STATE fqP 



E APR FOR 

) AND AR OVF SEPARATELY 

N 



HLOCKl - CLOCK, CONTEXT SWITCHING. AND JOB STARTUP AND STOP ROUTINES - V^l? 
CLOCK - LOW PRIORITY CLOCK SEHVICE(CLK) 
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494 








495 








496 








497 








498 








499 








500 








5l!ll 








5512 








5t<3 








5514 








5("5 








5H6 








5(»7 








5fl8 








509 








5]0 








511 








512 








513 








514 








515 








516 


?0(a3!"6 


205040 


140004 


517 


PliafI3("7 


412044 


000000 


518 








519 








520 








521 


00PI310 


40205)4 


0030S'0 


522 








523 








524 








525 


(!0(1311 


3152(^0 


000000 


526 


00(^312 


2540(10 


000326' 


527 


(100313 


205100 


040000 


528 


C0C1314 


550040 


000004 


529 


[«0fl3l5 


616101 


000307' 


530 


P)0(1316 


367040 


000315' 


531 


(a0f!317 


202040 


000311' 


532 


(»0032B 


754000 


000326' 



SUBTTL RUNCSS - RUN CONTROL CSTART ING AND STOPPING OP J09S) 

IRUN CONTROL IS A COLLECTION OF ROUTINES WHICH 
;SET AND CLEAR BITS 'N THE JCB STATUS WORDS OF 
iALL JOBS SO THAT THE SCHEDULER WILL START A'>:D STOP 
;THEM ACCORDINGLY 

iCOMMON ERROR STOPPING ROUTINES 

ICALLED AT ANY LEVEL ( UUD , CLK . OR INTERRUPT) 

SCALL" MOVE ITEM, JOB CAUSING ERROR OR BEING STOPPED 

; MOVE DEVDAT.ADRRESS OF THAT JOB TTY DEVICE DATA BLOCK 

; MOVE DAT, BYTE POINTER TO LAST CHAR. ALREADY MOVEH 

J (TO TTY OUTPUT BUFFER 

I PUSHJ POP.KSTOP.PHOLn.HOLO.OR ESTOP 

; NEVER RETURN IF CALLED AT UUD LEVEL 

(ROUTINE TO STOP JOB AFTER KJOB COMMAND 

(CALLED AT UUO LEVEL IF JOB HAD CORE, CLK LEVEL IF NOT 



INTERNAL KSTOP 
EXTERNAL HIGHJB 



KSTOP! 



MOVSI TAC. JNA*JLOG*JACCT 
ANOCAM TAC.JBTSTSC ITEM) 

IFN FTLOGIN,< 

EXTERN PRJPRG 



(CLEAR JOB NUMBER ASSIGNED AND LOGGEp IN BITS 



SETZM PRjPRG(lTEM) 



(CLEAR PROJECT-PROGRAMMER NUMBER WHEN JOn LOpS OUT 



IF THIS 
HIGHEST 



IS THE LARGEST 
AND SET HIGHJB 



JOB IN USE, FIND NEXT 



CAMGE 

JRST 

MOVSI 

URRZ 

TDNN 

''OJG 

MOVEM 

JRST 



ITEM, HIGHJB 

ESTOP 

TACl, JNA 

TAC, ITEM 

TACl, JBTSTS(TAC) 

TAC, ,-1 

TAC, HIGHJB 

ESTOP 



(IS THIS THE BIGGEST JOB NUMOER ASSIGNKO? ! 
(NO, LEAVE HOLE 

(YES, JOB NUMBER ASSIGNED BIT i 

(SCAN DOWNWARD 

) IS JNA BIT SET FOR THIS JOB? : 
(NO, KEEP LOOKING. FINISHED(TRUE I"" THIS TmE ONlY JOB 
(YES, STORE NFW HIGHEST JOB NUMBER ASSIGNED [ 
(GO SET ERROR BIT 



CLOCKl - CLOCK. CONTEXT SWITCHING, AMD JOB STARTUP AMD STOP ROUTINES - V412 MACRO, V36 19:01 <l-JUN-69 PAGE 27 
RUNCSS - RUN CONTfltlKSTARTINr, AMC STOPPING OF JORS) 

^i*^ ;ROUTINE TO STOP JOB. SET ERROR PIT AND PRINT MESSAGE 

'■''' ITHE^ ADO 'C<'CRLF><CRLr><pCRinn> 

?^5 iCALLi "OVEI TAG. ADR, OF ME'ISAGE 

'^* ; pushj pop.phold 

5:17 

■^'S INTERN PMOLO 

519 

540 00Ji3?l 260140 0000C0 PHOLOl PUSHJ POP.CONMES ,MOVE MESSAGE TO TTY OUTPUT BUFFER 
Li „ I FALL INTO HOLD 

^^2 (ROUTINE TO STOP JOB, SET ERROR BIT, 

*"•' )AND ADO "fC<CRLF><CRLF><PFRI0O> 

54 4 

^*^ INTERNAL HOLD.HOlDI 

546 EXTERNAL TTYSTC 

547 

548 000322 260140 000000 HOLD! PUSHJ POP.INLMES 

549 ASCIZ / 

550 000323 064253 641432 tc 
551 

552 000324 050321 227000 ./ 

553 

554 000325 260140 000000 HOLDl! PUShJ PDP.TTySTC IMAKE SURE TTY STAYS IN MONITOR MQDE 



556 



I AND START TTY TYPING OUT MESSAGE 
I FALL INTO ESTOP 



557 

11^ IKOUTINE TO STOP USER ANO Fl4C AS ERROR STOP 

^*1 IMTERNAL ESTOP, ESTDPl 

Itl EXTERNAL JBTSTS,STUSER,STREQ,STAVAL 

=°^ EXTERNAL SCHEDE, JOP.CPOPJ 

565 000326 322200 000000 ESTOP! JUMPE ITFM.CPOPJ MS THIi; FRRnR im ina ai 

It? Zllll I'^IM \Z\% rfovsf TaL:ac?t' iio/ciL^'A^CoiNT = T<,NCASELOGClNn 

567 000330 412044 000315- 4NDCAM TaC , JPTSTS ( I TEM ) UN OR OUT) SO USER CAN USE CONTROL r 

I yn RFCOVER 

569 000331 205040 020000 ESTOPII MOVSI TACJERR ISET ERROR BIT IN JOB STATUS WORO 

57? Zlf-.\ WXVo^. ZlllV lORM TACJBTSTSdTEM, . SO JOB CAN n5t COnJiNUE MNT cT . 1 

571 000333 312200 0001000 CAME ITEm,STUSE,R (SYSTEM TAPE USER? ^^v u i,u ,, 

572 000334 254000 000341- jRST STOP! Jno 

Vn\ 22^52^ 205040 637163 MOVSI TAC, 637163 (FIND SYS ODB 

574 000336 260140 000000 pySHJ PDP.DEVSRC ISYSTEM ERROR IF NOT FOUND 

575 000337 265240 000000 jSP DAT, ERROR ' = ^ t t« uk u imoi fdUND 

576 000340 260140 000000 pySHJ POP, RELEa? ,YES. RELEASE SYSTEM TAPE WITHOUT WAITING 



CLOCKl - CLOCK, CONTEXT SWITCHING. AMD JPB STARTUP AND STOP t!OUTINES 
RUNCSS - RUN CONTROKSTaRTING aNO STOPPING OF J0P5) 



vn2 
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577 

579 

5S0 

5B1 

5fl2 

5fl3 

5BA 

5R5 

5B6 

■587 

588 

5H9 

590 

591 

592 

593 

594 

595 

596 

597 

598 

599 

6130 

6(11 

6(H2 

6(13 

51^4 

6:15 

6t»6 

6H7 

6?8 

6PI9 

610 

611 

612 

633 

614 

515 

616 

617 

618 



000341 
000342 
000343 
000344 
000345 
000346 
000347 
000350 
00^351 
000352 
000353 
000354 
000355 
000356 
000357 



000360 



000361 
000362 
000363 
000364 
000365 



205040 
700600 
312200 
616044 
254000 
412044 
700600 
135040 
307040 
371001 
254000 
375001 
402001 
700600 
312500 



400000 

000300' 

000333' 

000332' 

000356' 

000344' 

000304' 

000000 

000000 

000000 

000356' 
000000 
000354' 
000347' 
000255 < 



;RnUTlNE TO STOP ANY JOB FRO^i BEING SCHEOULED 

ICALL! 

; MOVE ITEM, JOB NUMBER 

! PUSHJ POP, STOPl 

i EXIT iRETURN HERE IMMEDIATELY, IF CALLED FR0>1 HIGHER 

(PRIORITY PI CHANNEL Than CLK(LOweST), OTHERWISE WHEN JOB IS RUNABLE 

;CALLEn FROM COMMAND DECODER WHEN <C0NTR')L>C TYPED IN E'Y USER 

;0R ON ANY ERROR MESSAGEISFE PREVIOUS PAGE) 

INTERNAL STOPl 

EXTERNAL JBTSTS,PJBSTS,REQTAn,JOB,STUSER,MAXD,AVALTB 



STOPli MOVSI TAC, RUN 
CONO PI, PIOFF 
CAME ITEM.STUSER 
TDNN TAC.JBTSTSdTEM) 
JRST STOPIA 

ANDCAM TiCi JBTSTSi ITEM) 
CONO PI, PION 
LDB TACPJBSTS 
CAIG TAC.MAXO 
SOSL REQTAB(TAC) 
JRST STOPIA 
SOSGE AVALTB(TAC) 
SET2M AVALTB<TAC) 

STOPlA: CONO PI , PION 
CAME ITEM, JOB 

INTERNAL FTSWAP 



IFE FTSWAP, < 

POPj POP, 
> 

IFN FTSWAP, < 
254000 000442' JRST REQUE 

> 



331044 
607040 
254000 
4760C0 
254000 



000346' 

020000 

000533' 

000214' 

000533' 



SKIPL TAC.JBTSTSdTEM) 
TLNN TACJERR 
JRST ST0P2 
SETOM SCHEDF 
JRST STOPS 



(DONE AT INTERUPT LEVEL HIGHER THAN DT LEVEL 

IIS THIS JOB CURRENTLY USING THE SYSTEM TAPE? 

INO, IS RUN BIT OFF IN JOS STATUS WORD 

lYES 

INO, SO CLEAR IT 

IGET JOB WAIT QUEUE CODECIF ANY) 

IDOES STATE HAVE Q ? 

lYES. REDUCE IT. 

INO 

lYES REDUCE COUNT 

ICLEAR AVAL FLAG IF NO ONE WAITING 

IMAKE SURE PI ON 

INO, IS THIS JOB CURRENT USER 



INO 

ISET REQUE JOB FLAG 



IRUN FLAG OFF? 

lYES. ERROR FLAG ON? 

INO 

lYES, FORCE RESCHEDULING EVEN IF JOB IN rxEC ■^ODE 

lYES, MAKE CLK RESCHEDULE ANO"HER JOB 



OCKl 


- CLOCK 




RUNCSS 


619 




6JP 




6?1 




6?2 




6?3 




6P4 




6?5 




6?6 




637 




628 


Pi0»366 


6?9 




630 


000367 


631 




632 


0051370 


633 




634 




535 




636 


("00371 


637 


(^00372 


638 




639 


000373 


640 




641 




642 




643 




644 




645 




646 




647 




648 


000374 


649 


000375 


650 


000376 


6'51 





CONTEXT SWITCHING, AND JOB STARTUP AND STOP PQUTINIFS - V412 
- RUN CONTRCLtSTARTING AND STOPPIMG OF JOBS) 



MACRO, V36 19!?1 4-JUN-iQ PACE li 



.■ROUTINE TO REQUE JOS MHICM HAS HAH A COMfANO TYPED 
IWHICH NEEDS CORE AND THE CO^E IMARE IS ON THE DISK, 
lOR IS IN CORE AND HAS ACTIVE DEVICES, 
(CALLED FROM COMMAND DECODER 
ICALLI MOVE ITEM,J09 NO, 
I PUShj POP.OLYCOM 



INTERNAL OLYCOM 

205040 200000 DLYCOMi MOVSI TACiCMWB 
IFN FTSWAP,< 

EXCH TAC, JBTSTS(ITEM) 

lORM TAC, JBTSTSdTEH) 



250044 000361' 
436044 000367' 



ISET COMMAND WAIT BIT 



UN JOB STATUS WORD 



607040 200000 

260140 000442' 



263140 000000 



INTERNAL FTSWAP 

IFN FTSWAP, < 

TLNN TACCMWB 

PUSHJ PDP.REOUE 



POPj POP, 
IROUTINE TO PUT JOB IN NO CORE QUEUE 

INTERNAL FTSWAP 
IFN FTSWAP, <INTERNAL NOCORO 
EXTERNAL NULO 



201040 000000 NOCOROi 
137040 000350' 
254000 00f:442' 

> 



MOVEI TACNULQ 
DPR TACPJBSTS 
JRST REQUE 



;N0 JOB NO, OR NO CORE QUEUE 
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J52 ;H0UT1NE TO SETUP M0\UT0O jot) TO HUN LATER AT UUO LEVEL 

°5J ;C»LLEn ?Y COMMANDS WHICM MAY OR MAY NOT NEED TO 

'5" IRI'N MONITOR JOB OEPENOING QV WHETHER JOR HAS CORE ( K JOB , I JOB ) 

*55 ;TTY i«!Li_ REGAIN IN MONITOR MO"E 

'^''^ !JOB MUST HAVE CORE ASSIGNED 

*■''' iCALLi "CVE ITEM, JOB NUmREB 

*''8 I "CVEI TACliAOOR, OP "ONITOR JOB TO BE RUN 

'■'' i PUSHJ PDP.MONJOB 

^''^ ;WHEN SCHEDULED TO RUN, MONITOR JOB MUST SET UP ITS OWN ACS 

6A1 

6*2 INTERNAL MONJOB 
663 

664 B00377 260142 000423' MONJOBi PUShj PDP,MSTART iSTaRT WITH PC IN MONITOR 

665 (100400 254002 000427' JRST SETRUN ,SET TTY TO START JOB WHEN COMMAND RESPONSE 

**, ) IS FINISHEO AND KEEP TTY IN MONITOR MQnE 
66 / 

668 

'*' (ROUTINE TO SETUP ACS FOR MONITOR JOB STARTING AT UUO LEVEL 

'7^ 'SETS UP ITEM, WITH JOB NO.) PROD WITH RELOCATION. AND PHP 

•^'1 IWITH PUSH DOWN LIST ADR, IN JOB DATA AREA 

*^2 (USED BY KJOe.CORE 0, SAVE , GET . RUN, R, REASS IGN AND FINISH COMMANDS 

*'3 ICALLI MOVEI TACliMONITOR jnB STOP ADDRESS 

''^ I JSP TAC.MONSTR 

*^5 I RETURN WITH ACS POP . PROG , JDAT, AND ITEM SETUP 

6 76 

677 INTERNAL MOnSTR 

6^8 EXTERNAL JOB. JBTaDR.MJOBPD.JOBPOL.TTYFNU. JBTDAT 

679 

680 000401 200200 000357' MONSTRl MOVE ITEM, JOB ICURRENT JOB NUMBER 

681 000402 200344 000241' MOVE JDAT . JBTDAT ( I TEM ) lAOR. OF JOB DATA AREA 

682 IFN JDAT-PR0G,< 

6S3 MOVE PROG. JBTADR(ITEM) (JOB RELOCATION 

684 > 

685 000403 205140 000000 MOVSI PDP.MJOfiPD (MINUS LENGTH OF SYSTEM PD LIST 

686 000404 541147 000000 HRRI POP , JOBPDL ( JDAT ) (FIRST L0C."1 OF PD LIST 

687 000405 261140 000002 PUSH PDP.TACl (SAVE STOP AORRESS 

688 000406 254001 000000 jRST (TAC) (RETURN AND 00 MONITOR JOB 

*®' ( WITH TTY DOB, OUTPUT BYTE POINTER. AND jOB NO, 
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690 
691 
692 
693 
694 
695 
696 
697 
698 
699 

lee 

701 
702 
703 
704 
705 
706 
707 
708 

709 
710 
711 
712 
713 
714 
715 
716 
717 
718 
719 
720 
721 
722 
723 
724 
725 
726 
727 
728 
729 



000407 
000410 
000411 

000412 
000413 
000414 
000415 
000416 



000417 
000420 
000421 
000422 

000423 
000424 
00042S 
000426 



200047 
603040 

254000 

201047 
504040 
251047 
200047 
541041 



202047 
500100 
661100 
621100 

202107 
205040 
412044 
254000 



(ROUTINE TO SET JOB STATE TO BE SCHEDULED TO RUN 

(WITH SPECIFIED STARTING ADDRESS INCLUDING PC TUAGS 

JCALLED ONLY WHEN JOB IN CORE 4nD AFTER JOB HAS BEEN 

ISAFELY STOPPED IN ONE OF 3 STATESI 

ID PC IM USER MODE 

)2) JOB IN A WAIT FOR SHARABLE DEVICE, OP 10 WAIT 

13) JOB JUST ABOUT TO RETURN TO USER MODE FROM A UUO CALL 

ICALLI MOVE TACl, STARTING PC 

I MOVE ITEM, JOB iNUMBEP 

» MOVE JDATiADR, OF JO? DATA AREA WHICH MUST BE IN CORE 

; PUSHJ PDP,USTART(PC TO USER MODE ) ,MSTART(PC TO MONITOR MODE) 

I RETURN HERE IMMEDIATELY 

INTERNAL MSTART, USTART 

EXTERNAL JOBPC,JOBDAC,JOB017,TTYSET,JOBOPC,JOBPD1 



000000 USTARTi MOVE TAC , JOBPC ( JOAT ) 

010000 TLNE TACUSRMOD 

000417' JRST USTRTl 

000243' MOVEI TAC, JOBDAC(JOAT) 

000007 HRL TAC, JOAT 

000130' BLT TAC,jOBD17(;jDAT) 

000000 MOVE TACJOBPDKJDAT) 

777777 HRRI TAC,-1(TAC) 



000000 
000001 
010000 
000037 



USTRTll 



MOVEM TAC.JOBOPC(JDAT) 
HLL TACl, TAC 
TLO TACl.USRMOD 
TLH TACl, 37 



IGET OLD PC 

MS IT IN USER MODE TOO? 

lYES, DUMP ACS AND PC FLAGS ARE ALREADY HIS 

INO. MOVE USERS(UUO) ACS TO DUMP ACS 

ISnuRCE.REL. 0,DEST,=JOgDAC IN JOB DATA AREA 

IMOVE ALL ACS 

lUUO PC HAS LAST PC 

(SUBTRACT 1 FROM RIGHT HALF AND 

I PRESERVE LH PC FLAGS, 

I (RH»0 ON HALT OR FIRST START) 

ISTORE OLD PC FOR USER TO LOOK AT 

IPRESERVE USER APR FLAGS 

IMAKE SURE NEW PC IN USER MODE 

IMAKE SURE NO INDIRECT BITS OR INDEX FIElD 



000407' MSTARTI 
020370 
000370' 
000000 



MOVEM TACI.JOBPC(JOAT) (STORE NEW PC 

MOVSI TACl JERR*WTMASK 

ANDCAM TACJBTSTSdTEM) ICLEAR ERROR AND WAIT STATUS BITS 

JRST TTYSET (SET TTY STATE TO INITIAL COND, 

I TTYUSR OR TTYURC SHOULD BE CALLED 

) TO INDICATE WHETHER TTY TO USER OR EXEC MODt 

I AND THAT JOB IS TO RUN(RIIN BIT il) WHEN 

I MONITOR COMMAND RESPONSE FINISHES, 

I SEE SETRUN BELOW 



CLOCKl 



- CLOCK, 
RUMCSS 
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730 
7.11 
732 
733 
734 
735 
736 
737 
738 
739 
740 
741 
742 
743 
744 
745 
746 
747 
746 
749 
750 
751 
752 
753 
754 
755 
755 
757 
758 
759 
7S0 
7«1 
762 
763 
764 
765 
766 
767 
768 
769 
773 
771 
772 



000427 
000430 
000431 
000432 
000433 
000434 
000435 



000436 
000437 
000440 
000441 



000442 
000443 

000444 
000445 
000446 



135040 
303040 
254000 
353001 
254000 
357001 
476001 



205040 
436044 
200040 
542044 



205040 
616044 

350000 
436044 
263140 



(ROUTINE TO SET JOB STATUS RUN BIT(RLIN) 

;CALLED by SCANNER SERVICE WHEN TTV MONITOR COMMAND 

iRESPONSF FINISHES, THIS ACTION IS ENABLED BY CALLING 

ITTYUSR, OR TTYURC IN SCMSER 

;CALL! MOVE ITEM, JOB NUMBER 

! pushj P0P,SETRUN 

INTERNAL SETRUN 

EXTERNAL JBTSTS,PJBSTS,REQTAP,AVALTB,RNQUNT 

EXTERNAL MAXO 



000375' SETRUN; LOB TACPJBSTS 

000351' CAILE TACMAXO 

000436' JRST SETRl 

000352' AOSlE REOTAB(TaC) 

000436' JRST SETRl 

000355' AOSG AVALTB(TAC) 

000434' SETOM AVALTB(TAC> 



400000 SETRll MOVS! TACiRUN 
000425' lORM TACJBTSTSdTEM) 

000000 SETR2I MOVE TACRNQUNT 
000437' HRRM TACJBTSTSdTEM) 

INTERNAL FTSWAP 

IFE FTSWAP, < 

JRST NULTST 

> 

IFN FTSWAPi< 

INTERNAL REQUE 
EXTERNAL OJOB.JBTSTS 

REOUE! MOVSI TACiJRQ 

TONN TACJBTSTSdTEM) 
AOS QJOB 

lORM TACJBTSTSdTEM) 
POPJ POP, 



000002 
000441' 

000000 

000443' 

000000 



IGET JOB STATUS WAIT QUEUE CODE 

JOOES JOB STATUS CODE HAVE A QUEUE? 

I NO 

lADD TO REQUEST COUNT 

•OTHERS WAITING? 

IMAKF AVAILABLE 

IFLAG AS JUST AVAILABLE, BECAUSE 

I NO JOB WAS USING DEVICE, SCHEDULER 

I WILL SCAN THIS QUEUE 

JSET RUN BIT IN JOB STATUS WORD 

ISET QUANTUM TIME TO RUN QUEUE QUANTUM 
IRUN QUEUE QUANTUM 



ICO SEE IF NULL JOB IS RUNNING 



IMARK JOB To BE REQUEUED WITH JRQ BIT 

MNCREMENT COUNT ONLY ONCE FOR EACH JOB 

MNCREMENT COUNT OF NO, OF JOBS WAITING TO BE REQUEUED 

JSET REQUE SIT FOR SCHEDULER 
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773 

774 ;ROUTINE TO PUT 4 JOB TO SLEEP AND WAKE UP AGAIN LATER 

775 JCALLED AFTER CLOCK QUEUE REBUEST PUT IN BY UUO ROUTINE 
776 

777 INTERNAL FTSLEEP 

778 

779 IFN FTSLEEP. < 

7fi0 INTERNAL SETSLP 

781 EXTERNAL JBTSTS.SLPQ 

7R2 

7R3 00PI447 205040 000400 SETSLPi MOVSl TACrCLKR IFLAC THAT A CLOCK REQUEST HAS BEEN PUT in; 

7R4 00(5450 436044 000445' lORM TAC , JBTSTS ( I TEM ) ISO ONLY ONE PER JOB 

785 000451 201640 000000 MOVEI ACl.SLPQ ISLEEP STATE CODE 

786 000452 254000 000511' JRST SETSTT ISET STATUS AND RESCHEDULE 
7fl7 

788 IHERE AT CLOCK LEVEL WHEN CLOCK REOUEST TIMES OUT FOR SLEEP 

789 IJOB NO. IN AC TAC 
790 

791 INTERNAL WAKE 

792 EXTERNAL P JBSTS ,RNQ , SLPO 

703 ' 

794 000453 201100 000000 WAKE! MOVEI TACliRNQ IRUN QUEUE CODE 

795 000454 200200 000001 MOVE ITEMiTAC IJOB NO, 

796 000455 205040 000400 MOVSI TACiCLKR ICLEAR CLOCK REQUEST BIT FOR THIS JOB 

797 000456 412044 000450' ANDCAM TAC i JBTSTS ( ITEM ) ISO IT CAN PUT ANOTHER ONE IN 
796 000457 135040 000427' LDB TAC.PJBSTS IGET QUEUE CODE 

799 000460 302040 000451' CAIE TAC, SLPO IIS JOB STILL SLEEPING? 

800 000461 263140 000000 POPJ POP, INO, RETURN TO CLOCK ROUTINE 

801 000462 137100 000457' DPB TAC1,PJBSTS lYES, STORE RUN QUEUE CODE 

85,2 I (CONTROL C. START CAN GET JOB OUT OF Sl^EP) 

803 000463 254000 000440' jRST SETR2 

804 > 
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.•ROUTINE TO GET PATA COMTROL AND ANOTHER SHaRABLE DEVICE 

JJOB NEVER GETS ONE DEVICE AND WAITS FOR SECOND, SINCE TYPING 

ICGNTHOL C WOULD NEVER FINISH WITH FIRST DFVICF 

JCALL PUSHJ PDP.GETDCXX 

i AOSE XXREO iREQL'EST COUNT FOR OTHER DEVICE 

; RETURN WHEN BOTH AVAILABLE 

INTERNAL GETDCDT.GETDCMT 

EXTERNAL DCREQ,REQTAn,AVALTB,DCAVAL,CPOPJl 

GETDCDT;gETDCMT! 

XCT 9(PDP) (INCREASE SHARABLE DEVICE REO. COUNT 

GETWTl PUSHJ PDP.OVWATl INOT AVAIL.. GO WAIT FOR IT 
*OSN DCREO IIS DATA CONTROL AVAILABLE? 

I^pg^ RETURN BOTH AVAILABLE 
lOATA CONTROL NOT AVAILABLE 

IREDUCE REO, COUNT FOR OTHER 

I SHARABLE DEVICE, 

ISET AVAILABLE IF OTHER JOBS WAITING 

(ARGUMENT FOR DCWAIT 

IWAIT FOR DATA CONTROL FREE 

I INCREMENT REO. COUNT 

(NOW IS SHARABLE DEVICE FREE? 

(YES 

INO, REDUCE DATA CONTROL REQUEST 

ISET AVAIL., SOME OTHER JOB WAITING FOR tT 

ITRY AGAIN 



8S55 








8^6 








8C7 








808 








809 








8J0 








Bll 








812 








813 








814 








815 


000464 






816 


000464 


256023 


000000 


817 


000465 


260140 


000507' 


818 


000466 


356000 


000000 


819 


000467 


254000 


000000 


820 


000-(70 


200663 


000000 


821 


000471 


275640 


000432' 


822 


000472 


371015 


000471' 


823 








824 


000473 


476015 


000435' 


8?5 


000474 


255000 


000466' 


826 


000475 


260140 


000504' 


827 


000476 


200663 


000000 


828 


000477 


356020 


000015 


829 


000500 


254000 


000467' 


830 


000501 


371000 


000474' 


831 


000502 


476000 


000000 


832 


000503 


254000 


000465' 



JRST 


CPOPJl 


MOVE 


ACl.SCPOP) 


SUBI 


ACl.REQTAa 


SDSL 


RFQTAe(ACl) 


SETOM AVALTBIACI) 


JFCL 


DCREQ 


PUSH, 


; POP, DCWAIT 


MOVE 


AC1,9(P0P) 


40SN 


»ACl 


JRST 


CPOPJl 


SOSL 


DCREQ 


SETOI* 


1 DCAVAL 


JRST 


GFTWT 
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833 
834 
835 
836 
837 
838 
839 
840 
841 
842 
843 
844 
845 
846 
847 
848 
849 
850 
851 



000504 



IROUTINE TO WAIT FOR A SHARABUE DEVICE 

;CALLED AT UUO LEVEL ONLY 9Y DEVICE SERVICE ROUTINES 

ICALL" AOSLE XXREQ lADD 1 TO SHARABLE DEVICE REQUEST COUNT 

I J IS DEVICE AVAILABLE? 

I PUSHJ PDP.XXWAIT INO. PUT JOB IN WAIT QUEUE 

) RETURN WHEN DEVICE AVAILABLE 

I INITIALLY THE REQUEST COUNT IS -N. WHERE N IS THE 

JNUMBER OF JOBS WHICH CAN USE THE SHAR4BLE DEVICE AT THE SAME TIME 

)A REQUEST COUNT OF MEANS THE MAXIMUM NO, OF JOBS ARE 

lUSING THE DEVICE. A POSITIVE NUMBER IS THE 

JNUMBER OF JOBS WAITING IN THE SHARABLE DEVICE WAIT QUEUE 

INTERNAL DVWAIT 

INTERNAL MTWA I T.STWA I T , DTWAIT.DCWA I T, OAWA I T, MQWAI T . AUWA I T 

EXTERNAL JOB.REQTAB 

MTWAlTlDTWAITlDCWAITlSTWAITiOAWAiTIMQWAITlAUWAIT) 



852 
853 
854 
855 
856 
857 
858 
859 
860 
861 
862 
863 
864 



000504 
000505 
000506 
000507 

000510 
000511 
000S12 
000513 



200643 
200655 
254000 
200663 
275640 
200740 
137640 
254000 



000514 250517 



000000 DVWAITl MOVE ACl.fPDP) 

777776 MOVE AC1,-2(ACI) 
000510' JRST ,*2 

777777 DVWATll MOVE AC1,»-1(PDP) 
000472' SUBI ACl.REQTAB 
000401' SETSTTI MOVE ACS, JOB 
000514' DPB ACt.PJBSt 
000076' JRST WSCHED 



IGET ADR, OF CALLER 

IGET AOSLE XXREQ INSTRUCTION 

IGET ADR. OF CALLER OF THIS ROUTINE 

(COMPUTE WAIT-STATE QUEUE CODE 

ICURRENT JOB NO. 

ISTORE IN JOB STATUS WORD 

IGO SCHEDULE ANOTHER AND RETURN TO CALLER 

I WHEN SHARABLE DEVICE BECOMES AVAILABLE 

I SEE CLOCK AND CLKCSS 



8456' PJBSII 



POINT JWSIZ,JBTSTS(A03),JWP0S IBYTE POINTER TO JOB STATUS 

I WORD WAIT QUEUE CODE 
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865 (ROUTINE TO SET JOB TO RUN AFTER IT HAS BEEN STOPPED 

afi6 (BECAUSE IT WAD TO WAIT FOR 10 TO COMPLETE FOR SOME DEVICE 

867 !EACH SERVICE ROUTINE AT INTERRUPT LEVEL 

868 (CHECK EACH TIME IT FINISHED A TASK ( RUFFERFUL ) 

869 (TO SEE IF THE JOB USING THE DEVICE HAS 

870 (PREVIOUSLY CAUGHT UP WITH DEVICE AND HAS SEEN STOPPED 

871 (CALL' MOVE DEVDAT.ADR. OF nEVICE DATA BLOCK 

872 ( MOVE IOS,-DEVIOS(DEVOAT) (GET DEVICE 10 STATUS WORD FROM DOB 

873 ( TLZE lOS.IOW (IS JOB IN AN 10 WAIT FOR THIS DEVICE? 

874 ( PUSHJ PDPiSETIOD lYES, GO FLAG JOB TQ START UP AGAIN 

875 I RETURN 

876 (SETS THE JOB QUEUE WAIT CODE TO WSQ IN JOB STATUS WORD, 

877 (THE SCHEDULER THEN SEES THAT THIS JOB HAS ITS 

878 (10 WAIT SATISFIED AND IS WAITING TO BE RUN AGAIN 
879 

380 INTERNAL SET lOD r STT [QD 

381 EXTERNAL WSQ , WSAVAL i TSQ , TSAVAL . JOBiP JOBN 

8P3 000515 250601 000514' PJBS2I POINT JWS I Z, JBTSTS < TAC ) , JWPOS (BYTE POINTER TO JOB STATUS 
884 I WORD QUEUE CODE 



885 
386 



000516 201100 000000 STTIODI MOVE! TACliTSO (SET TTY 10 WAIT SATISFIED QUEUE CODE 

887 000517 350000 000000 AOS TSAVAL 

888 0005?0 254000 000523' JRST SETIOl 

889 PI00521 201100 000000 SETIODI MOVEI TACliWSQ JREOUE TO WAIT SATISFIED Q 

890 000522 350000 000000 AOS WSAVAL IINCR, NO, OF JOSS WITH 10 WAIT 

891 ( SATISFIED, NON-HERO WSAVAL WILL 

892 I CAUSE SCHED, TO SCAN FOR 10 

893 I SATISFIED JOB, 

894 000523 135040 000000 SETIOll LDB TAC.PJOBN 

895 000574 137100 000515' OPB TAC1,PJBS2 (IN JOB STATUS WORD 
896 

897 INTERNAL FTSWAP 

898 IFN FTSWAP, < 

899 EXTERN OJOB, JBTSTS 

900 000525 205100 000002 MOVSI TACliJRQ (SET JOB TO BE REQUEUED AT NEXT CLOCK TIrK 

901 0005?6 616101 000515' TDNN TACl , JBTSTS ( TAC ) (IS REOUE BIT ALREADY ON? 

902 000527 350000 000444' AOS OjOB (NO, INCREMENT COUNT ONCE FOR EACH JOB 

903 0005^0 436101 000526' lORM TACl i JBTSTS < TAC ) (SET REQUEUEING BIT FOR SCHEDUl ER 

904 > 

905 000531 332000 000511' NULTSTi SKIPE JOB (IS NULL JOB RUNNING? 

906 000532 263140 000000 POPJ POP, (NO LET OTHER JOS RUN TILL SCHEDULER IS tRaPPPED TQ 
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907 
908 
909 
910 
911 
912 
913 
914 
915 
916 
917 
918 
919 
920 
921 
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000533 
000534 



700600 
476000 



000535 700600 000000 

000536 263140 000000 



(ROUTINE TO CAUSE CLK ROUTINE TQ RESCHEDULE 

(CALLED AT ANY LEVEL 

ICALL' PUSHJ PDP(ST0P2 

I RETURN IMMEDIATELY EXCEPT IF AT UUO 

) IF AT UIO LEVELi RETURN WHEN JOS IS 



LEVEL 
RUNABLE 



AGAIN 



INTERNAL ST0P2 
EXTERNAL PICLK.CLKFLG 



000342< 
000212' 



ST0P2I 



CONO PI.PIOFF 
SETOM CLKFLG 

CONO PI.PICLK 

POPJ PDP, 



(PREVENT CLOCK INTERRUPT DURING ST0P2 CODE 

(SET FLAG TO INDICATE CLK INTERRUPT 

( EVEN THOUGH CLK INTERRUPT IS NOT A TIME INTERRluPT 

(TURN PI BACK ON AND REQUEST INTERRUPT TO 

( CLK PI CHANNELaOWEST PRIORITY CHANNEL) 

(INTERRUPT IMMEDIATELY IF AT UUO LEVEL 



CLOCK! - CLOCK, CONTEXT SWITCHING. AND JOB STARTUP AND STOP fJOUTINES 
RUNCSS - RUN CONTROKSTARTING AND STOPPING OF JOBS) 
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922 
923 
924 
925 
9?6 
927 
928 
929 
930 
931 
932 
933 
934 
935 
936 
937 
938 
939 
940 
941 
942 
943 



000537 
000540 
000541 
000542 
000543 



200006 
606000 
263140 

2601*0 
254000 



000002 

010000 

000000 

000544' 

000537' 



ROUTINE TO WAIT TILL DEVICE CATCHES UP WITH USER ANO BECOMES INACTIVE 
CALLING SEQUENCE 

PUSHJ POP, WAITl 

EXIT ALWAYS RETURNS HERE 

IF THE DEVICE IS INACTIVE (IOACT=0), RETURNS TO EXIT, OTHERWISE, SETS 

lOWI'l AND ENTERS WAIT UNLESS lOACT BECOMES 2ER0 BEFORE THE 

JUMP IS MADE, IN WHICH CASE IT SETS IOWH0 AND RETURNS TO EXIT, 

ON LEAVING THE WAIT STATE, RETURNS TO EXIT, 

THIS ROUTINE PREVENTS THE STATE IOACT«0 AND 10W=1 FROM OCCURING 

CALLING SEQUENCE 

PUSHJ POP, WSYNC 

EXIT ALWAYS RETURNS HERE 

SETS lOWin AND ENTERS WAIT ROUTINE. RETURNS TO EXIT WHEN IOACT = 0, 

INTERNAL WAITl 



WAITll MOVE IOS,OEVIOS(DEVDAT) 
TRNN IDS, lOACT 
POPJ POP, 
PUSHJ POP, WSYNC 
JRST WAITl 



IIS DEVICE ACTIVE? <I0ACT=17) 

(RETURN 

IWAIT 



CLOCKl - CLOCK, CONTEXT SWITCHING. AND JOB STARTUP AND STOP ROUTINES 
RUNCSS - RUN CONTROKSTARTINC AND STOPPING OF JOBS) 
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944 
945 
946 
947 
946 
949 
990 
951 
952 
993 
954 
955 
956 
957 
956 
959 
960 
961 
962 

963 
964 
965 
966 
967 
966 
969 
970 
971 
972 
973 
974 
975 
976 
977 
978 
979 
980 
981 
982 
983 
984 



000544 
000545 
000546 
000547 
000550 
000551 

000552 
000553 
000554 
000555 
000556 



000560 
(1100561 



000562 
000563 
000564 



000565 
000565 
^00566 
000567 



205000 
201640 
200746 
603740 

201640 
200740 

201700 
700600 
616706 
254000 
436006 



000001 
000000 
000004 



700600 
260140 



700600 
413006 
263140 



121000 
140600 
344000 



000260' 

00?I002 
000001 



;WSYNC IS CALLED TO WAIT UNTIL SETIQD IS CALLED BY INTERRUPT SERVICE ROUTINE: 

HE UNTIL CURRENT BUFFER ACTIVITY IS COMPLETEO 

(CALLED ONLY FROM UUO LEVEL 

ICALL' MOVE OEVDAT.ADR, OF DEVICE DATA BLOCK 

I PUSHJ PDP.WSYNC 

I RETURN IMMEDIATELY IF DEVICE IS INACTIVE 

) RETURN WHEN DEVICE FINISHES NEXT BUFFER IF IT IS ACTIVE 



INTERNAL WSYNC 

EXTERNAL lOWQ.TIOWO.P JON.PIOFF 



WSYNCI 



000531* 

010000 

000533' 

000002 

000562' 

000002 



000557 137640 000514' 



000356' 
000076' 



000560' 

000002 



MOVSI lOS.IOW 

MOVEI AClilOWQ 

MOVE AC3,DEVM00(OEVDAT) 

TLNE AC3,DVTTY 

MOVE! AC1,TI0WQ 

MOVE AC3,J0B 

MOVEI AC2.I0ACT 

CONO PI. PIOFF 

TDNN AC2.0EVI0S(DEVDAT) 

JRST WSYNCI 

lORM I0S,DEVI0S(DEVDAT1 

OPB ACl.PJBSl 

CONO PI. PION 
PUSHJ PDP.WSCHEO 



WSYNCll CONO PI. PION 

ANDCAB lOS. OEVIOS(DEVOAT) 
POPJ POP, 



ISETUP DEVICE 10 WAIT BIT 

110 WAIT STATE CODE 

(DEVICE CHARACTERISTICS 

MS THIS DEVICE A TTY? 

lYES, SET TTY WAJT STATE CODE 

ICURRENT JOB NO. 

(DEVICE ACTIVE BIT 

(TURN PI OFF 

(IS THE DEVICE ACTIVE? 

(NO 

(YES. SET DEVICE lO-WAIT BIT 

( AND SETUP lOS FOR RETURN WHEN WAIT SATISFIED 

(SET JOB W«IT STATE CODE 

( IN JOB STATUS WORD 

(TURN PI ON 

(CALL SCHEDULER TO FIN ANOTHER JOB TO RUN 

( RETURN WHEN NEXT BUFFERFUl IS FINISHED 

( WITH ACS 0-14 OCTAL RESTORED 

( RETURN WHEN ID-WAIT FINISHED 



(CLEAR DEVICE lO-WAIT SIT 



CLKENOl END 



NO ERRORS DETECTED 



PROGRAM BREAK IS 000570 



CLOCKl - CLOCK, CONTEXT SWITCHING. 
SYMBOL TABLE 
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ACl 


008015 


INT 


APRCHL 


0081060' 


EXT 


APRER 


f100037' 




APRER3 


000055' 




APRFOV 


aemem 


EXT 


APRINT 


P100006' 


INT 


APRPC 


000063' 


EXT 


AVALTB 


00CI473' 


EXT 


CIP3 


000155' 




CIP6 


00H211' 




CIPWTM 


i500165' 


EXT 


CLKERR 


000122' 




CLKIWT 


000110' 


INT 


CLOCK 


000005' 


INT 


rOMCNT 


0002C7' 


EXT 


CPOPJ 


000326' 


EXT 


CRSHWD 


000015' 


EXT 


DAWAIT 


000504' 


INT 


nCWAIT 


000504' 


INT 


nEvins 


000002 


INT 


DLVCnM 


001^366' 


INT 


nvwAiT 


0061504' 


INT 


ESTOP 


700326' 


INT 


FTCCL 777777 777777 




fthalt 


000000 




FTMQSP 


00?000 


INT 


FTSW4P 777777 777777 


INT 


CETDCO 


300464' 


INT 


HIGHJB 


700317' 


EXT 


WOL.QI 


700325' 


INT 


INLMFS 


000322' 


EXT 


TOM 


000001 


INT 


J A 


000077 




jbt::at 


00P45'2' 


EXT 


JDAT 


■700077 


INT 


JMA 


740070 


INT 


JORAFR 


,7e00'>2' 


EXT 


JO'^015 


700126' 


EXT 


JOfiUC 


■700412' 


EXT 


JORD°G 


-»00175' 


FXT 


JOHJ-^A 


:"e72?7' 


FXT 


ja-pii 


7^0415 


FXT 


jO^-.-^FL 


7002^2 


FXT 


^ w P S 


780016 


INT 


K T V" « 


■"20264 


EXT 


M r N I T 


720153 


FXT 


MO^J'^B 


70K3"'7 


INT 


MQi^■A ! T 


■700574 


INT 


w c ' n 


70737A 


INT 


MULERR 


7002^2 


EXT 


SiULP"L 


7001.n 


FXT 


NX^' 


710 7 




PHHL" 


.',)0371 


INT 



AC2 


0130016 


INT 


APRCHN 


000303' 


FXT 


4PRER1 


000012' 




APRER4 


000043' 




APRILM 


000134' 


EXT 


APRNUL 


000000 


EXT 


APRPCL 


000010' 




CHGHRH 


000151' 


EXT 


C1P4 


000165' 




niP7 


0002S0' 




CLKCHL 


000120' 


EXT 


CLKFLG 


000534' 


EXT 


CLKR 


000400 


INT 


CLOCKl 


000000' 


INT 


COMMAN 


000210' 


EXT 


CPOPJl 


000500 ' 


EXT 


DAMESS 


000003' 


INT 


nCAVAL 


000502' 


EXT 


nEVCHK 


000206' 


FXT 


TEVMOO 


000004 


INT 


PTWAIT 


000504' 


INT 


nvWATl 


^005071 




FSTOPl 


000331' 


INT 


FTCHEC 


000000 


INT 


FTKCT 


777777 777777 




FTRC10 


777777 777777 




FTTIME 


777777 777777 


INT 


r.ETDCM 


000464' 


TNT 


HNCTIM 


000205' 


EXT 


11"* 


020000 




lOACT 


010000 


INT 


lOWC 


000545' 


FXT 


JACCT 


100000 


INT 


JBTKCT 


000150' 


EXT 


JERR 


0200(^0 


INT 


JCR 


000551' 


FXT 


JOPC'.I 


000045' 


FxT 


jOPni6 


0001?4' 


FXT 


JORHAT 


700217' 


FXT 


J B f. ■\' S 


700270' 


FXT 


jCPCC 


70041 7 ' 


FXT 


JORF'^L 


'>004'"4' 


FXT 


JORTFC 


7000A4 


FxT 


Jk.SI' 


700a->5 


INT 


LST^kd 


000142 


FXT 


" joypi 


730n? 


FXT 


'lONSTR 


- 7 4 7 1 


INT 


^-STa^JT 


'77453 


tnt 


NbLA^R 


7072''l 


!NT 


MLL J" 


■'i!0252 




' LLC 


7,70374 


fxt 


'xtj'-e:- 


707211 


FXT 


iMCLK 


7775-»5 


FXT 



AC3 


000017 


iNT 


APRCON 


000000' 




APRER2 


000061' 




aprerr 


000245' 


FXT 


APRINl 


000001' 




APRPAR 


000011' 




AUWAIT 


000504 ' 


INT 


C1P2 


000164' 




CIP5 


000205' 




CIP8 


000241' 




CLKENO 


000565' 




CLKINI 


000073' 


INT 


CLKS17 


000002' 




CMWB 


200000 


INT 


CONMES 


000321' 


FXT 


CRASHX 


000016' 


FXT 


DAT 


000005 


INT 


□ CREO 


000501' 


FXT 


nEVDAT 


000006 


INT 


□EVSRC 


000336' 


FXT 


DVTTY 


000010 


TNT 


ERROR 


000337' 


FXT 


FT2REL 777777 777777 




FTOISK 777777 777777 




FTLOGI 777777 777777 




FTSLEE 777777 777777 


INT 


FTTTYS 777777 777777 


INT 


CETWT 


000465' 




HOLD 


000322' 


INT 


INCTII* 


700144 ' 




IDS 


700000 


TNT 


ITEM 


-"00004 


INT 


JBTAIF 


700256' 


rX'' 


JBTS^S 


-77=-'7' 


rx ' 


JLOG 


■. , , . ; 




jOPAOfi 


.■ 7 ■^ 2 « 6 ' 


rx' 


jonoi4 


r/:0072 


rx'' 


J0BD17 


730414' 


rx^ 


JOPDPD 


737176 ' 


r X ^ 


jQRhCU 


7772^5' 


rx' 


JHRPC 


7 7 7 4 ' i ' 


;-Y ' 


JOBPRT 


^-■'2?4' 


r X' 


JRO 


777.'-2 


■\' 


KSTOP 


7C0376' 


' ■\^ 


MAXQ 


■"07430' 


rx-' 


1JOBPD 


700473 


rX' 


M \i T » I) 


737X70 


rx" 


•<T«AIT 


707574 


•\T 


NUL'-AT 


700242 


rx' 


NULJOB 


7032?? 


.^T 


\JULTST 


7075^1 




PQP 


-.-.■•.-73 


• \' 


PITFF 


'37553 


rx-' 



CLOCKl 



- CLOCKl CONTEXT SWITCHING. AND JOB STARTUP AND STOP ROUTINES 
SYMBOL TABLE 
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PION 


000562 


EXT 


PJBSTS 


000462 


EXT 


POTLST 


000143 


EXT 


PROG 


000007 


INT 


REOCLK 


000067 


EXT 


RNO 


000453 


EXT 


RTIME 


000144 


EXT 


SCHEOF 


000364 


EXT 


SETHRD 


000265 




SETRl 


000436 




SETRLl 


000256 




SETSTT 


000511 




STOPl 


000341 


INT 


STOR 


000005 




STUSER 


000343 


EXT 


Tl 


000002 




THSDAT 


000156 


EXT 


TIOWO 


000550 


EXT 


TTIME 


000145 


EXT 


TTYSTC 


000325 


EXT 


IJSRHCU 


000223 


EXT 


USRPC 


000251 


EXT 


USTART 


000407 


INT 


WAITl 


000537 


INT 


WSCHED 


000076 


INT 


WSYNCl 


000562 





PsIBbi 


000514' 




PJOBN 


000523' 


EXT 


POV 


200000 




QJOB 


000527' 


EXT 


REQTAB 


000510' 


EXT 


RNOUNT 


000440' 


FXT 


RUN 


400000 


INT 


SETAPR 


000271' 


INT 


SETIDl 


000523' 




SETR3 


000440' 




SETRUN 


000427* 


INT 


SLPO 


000460' 


EXT 


STOPIA 


000356* 




STREQ 


000000 


EXT 


STWAIT 


000504' 


INT 


TAC 


000001 


INT 


TIME 


000155* 


EXT 


TSAVAL 


000517' 


EXT 


TTYFNU 


000000 


EXT 


UPTIME 


000022' 


EXT 


USRJDA 


000240' 


EXT 


USRPRT 


000233' 


EXT 


USTRTl 


000417' 




WAKE 


000453' 


INT 


WSO 


000521' 


EXT 


WTMASK 


000370 


INT 



PJBS2 


000515' 




PMONTB 


000161' 


FXT 


PRJPRG 


000310' 


FXT 


RELEA9 


000340' 


FXT 


REQUE 


000442' 


INT 


RSOHED 


000135' 




SAVPC 


000121' 




SETHSH 


000263' 


tXT 


SETIOD 


000521' 


iiNT 


SETREL 


000255' 


TNT 


SETSLP 


000447' 


TNT 


STAVAU 


000000 


EXT 


ST0P2 


000533' 


INT 


STTIOD 


000516* 


TNT 


T 


000001 




TACl 


000002 


iiNT 


TIMEF 


000213' 


fXT 


TSQ 


000516* 


fXT 


TTYSET 


000426* 


t-XT 


USCHED 


000104* 


Snt 


USRMOD 


010000 


§NT 


USRREL 


000565' 


t-XT 

Snt 


VCLOCK 


000412 


WSAVAL 


000522' 


t^XT 


WSYNC 


000544' 


Snt 



A 


6« 


6 










ACl 


6# 
958 


6 

961 


785 
969 


820 


821 


822 


*C2 


b* 


6 


963 


965 






ACS 


6# 


191 


192 


857 


863 


959 


AEFERR 


btt 


6 










AL 


6# 


6 










APR 


62 


69 


76 


79 


84 


93 


aprchl 


25 


80 


85 


91 


110 


113 


APRCHN 


79 


84 


106 


111 


346 


490 


4PRC0N 


44# 


62 


103 


489 






APRER 


70 


91# 










APRERl 


76 


84l» 










tPRER2 


flS 


94 


114* 








APRER3 


1(18# 


115 


131 








APRER4 


87 


95* 










APRERR 


26 


117 


222 


247 


251 


373 


APRFOV 


471 


473 










APRILM , 


?8 


248 










APRINl 


45«i 


75 


93 


101 


488 




APRINT 


50 


52# 


66 








APRNUL 


346 


385 










APRPAR 


52 


59* 










APRPC 


25 


116 










APRPTL 


55# 


60 










ASSCON 


6« 


6 










ASSPRG 


bit 


6 










AUWAIT 


848 


851# 










AVALTB 


587 


6C0 


601 


740 


748 


749 


R 


6« 


6 










RUFPMT 


6i» 


6 










PUFWRD 


6# 


6 










CHCHGH 


277 


278 










C1P2 


285 


295* 










C1P3 


286# 


292 










C1P4 


296l» 


3?!0 


311 








C1P5 


297 


313« 










CIP6 


254 


317* 










niP7 


329 


349* 










C.IPB 


323 


369# 










rIPWTM 


43 


48 


177 


179 


296 




TLKCHL 


221 


227 


2:^2 








rLKEND 


9R1« 












HLKERR 


2.16* 


375 










CLKFLG 


25 


74 


119 


221 


224 


251 


HLKIMI 


175 


1 79tf 










rLKI'-'T 


219 


i74« 


225 








CLKR 


5« 


6 


7P3 


796 






nLKS17 


■Id* 


226 


^.■'l 


24^ 






-LCCK 


12 


ibU 


1H2 


29S 


3P2 


i.'3 


rincKi 


16 


17* 










r-LSU' 


6# 


6 










CLROUT 


6# 


6 











824 827 



960 



98 



962 



106 



828 852 



111 114 



853 



117 



855 



123 



856 



455 



858 



490 



813 



824 



914 917 



CMWB 


6# 


6 


628 


COMCNT 


250 


315 




COMHAN 


28 


316 




nONMES 


?8 


540 




CORCNT 


6# 


6 




RPOPJ 


563 


565 




r.popji 


813 


819 


829 


CRASHX 


29 


68 




CRSHWO 


?9 


67 







6# 


6 




DAMESS 


tz 


*7* 




DAT 


6# 


6 


157 


□AWAIT 


818 


851# 




nCAVAL 


813 


831 




OCL 


6# 


6 




ncLl 


6# 


6 




ncLO 


6# 


6 




DCLR 


6# 


6 




nCREO 


813 


818 


825 


ncwAiT 


826 


848 


851# 


DDI 


6* 


6 




ODO 


6# 


6 




HEN 


6# 


6 




nEVAOR 


6IK 


6 




nEVBUF 


6# 


6 




flEVCMK 


28 


314 




DEVCHR 


6* 


6 




OEVCTR 


6« 


6 




DEVDAT 


6# 


6 


939 


nEVEXT 


6« 


6 




nEVFIL 


6# 


6 




riEVIAD 


6i» 


6 




nEvios 


6# 


6 


939 


HEVLOG 


6# 


6 




DEVMOD 


6# 


6 


959 


DEVN4M 


6# 


6 




nEVOAD 


6l» 


6 




DEVPPN 


6* 


6 




nEVPTR 


6# 


6 




HEVSER 


6« 


6 




1EVSRC 


28 


574 




ncf 


6# 


6 




nHMG 


6# 


6 




niN 


b# 


6 




niNi 


6# 


6 




DLK 


6« 


6 




niYCPM 


626 


62a# 




DMT 


6« 


6 




ONAERR 


6# 


6 




nou 


6« 


6 




OR 


6# 


6 




HRL 


6« 


6 




nRM 


6# 


6 





636 



575 



S3ii 



959 965 967 977 



965 967 977 



nSi<«LB 

nsn 

n T U- 6 IT 

n V 4 V i L 

'^ V r:>:; 

- V n- 1 o 

T V R I '-) 1 

n V n I F 
nvrsK 

"vn 

nVLNG 
^VLPT 

n V " T A 

"VPUT 
nvPTP 
i-)VPT^ 
TVTTY 
'1 1/ l-i A I T 
■^VkATl 
r M T R n 
rRROR 

fst;ip 

FSTOPl 
rhi^eRR 
FNTFRR 
FRGSFG 
FT^RTL 
FTATTA 
FTFCL 

FTrnrc 

FTniSK 
FTrXAM 
FTFIvI 

FTr,f:TT 

F T " A L T 

FTKCT 

FTLO';l 

FT'-n>'P 

FTFRV 

FTRA1 k) 

FTRCie 

FTRCMK 

r T R E A S 

tTSlPL 

F T S >. 4 P 

F T T 4 •_ K 

FTTI-E 

FTTRJC 

FTTRFS 

r T T T y S 



6« 


6 


6« 


6 


6« 


ft 


6f 


6 


3'-a 


rt51« 


bit 


6 


b» 


6 


o» 


6 


btt 


6 


bU 


6 


6 " 


b 


of 


6 


bit 


5 


fi« 


6 


b« 


6 


6# 


6 


5# 


6 


6» 


6 


60 


6 


6S 


6 


84 7 


8 = 2* 


d17 


SfiSS 


5« 


5 


28 


575 


5?6 


5.^2 


561 


5';9« 


6« 


6 


6# 


6 


6« 


6 


6« 


276 


0« 




1Z# 




6(i 


3 5 


1^« 




6« 




b» 




btt 




bn 


126 


6« 


27B 


1<.'« 


518 


6« 


."<5 


6« 




6e 




ik;« 




5« 




6« 




6* 


777 


Ik'" 


6:'5 


^ tf 




c« 


22ki 


6» 




6« 




6fl 


31 



9b?i 



561 



44^ 



.^7 



3?4 



565« 



41 388 



779 
6. '7 



260 



6l<: 679 



634 



6-!5 



645 



3-;6 



GETDCD 


812 


615# 


GETDCM 


812 


815# 


GETWT 


817# 


832 


HIGHJB 


514 


525 


HNRTIM 


250 


313 


HOLO 


545 


548# 


HOLDl 


545 


554IK 


HSAMSK 


6# 


6 


HSAPOS 


6# 


6 


HSASIE 


6# 


6 


HUNGCT 


6# 


6 


HUNGST 


6# 


6 


I 


6# 


6 


IB 


6# 


6 


IBUFR 


6# 


6 


ICLOSB 


6# 


6 


ILM 


6# 


114 


ILUERR 


6i» 


6 


INBFB 


6# 


6 


INCTIM 


264 


267# 


INITB 


6# 


6 


INLMFS 


28 


548 


1NP8 


6# 


6 


!0 


6# 


6 


lOACT 


6# 


6 


lOREC 


6# 


6 


lOflKTU 


6# 


6 


lOHOT 


6« 


6 


lOCOM 


6# 


6 


lonENO 


6# 


6 


lOnERR 
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